home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / autolock2.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.1 KB  |  43 lines
  1. # CVS $Id: autolock2.tcl,v 1.1 1995/02/03 17:15:03 zibi Exp $
  2. proc autoLockCB {cbs} {
  3.     sleep 2
  4.     VtUnLock
  5. }
  6.  
  7. proc lockAndQuitCB {cbs} {
  8.     sleep 2
  9.     VtUnLock
  10.     VtClose
  11. }
  12.  
  13. set ap [VtOpen autolock]
  14.  
  15. set dlog [VtFormDialog $ap.form -ok -okCallback autoLockCB -cancel \
  16.                                 -cancelCallback lockAndQuitCB -apply \
  17.                     -applyCallback autoLockCB \
  18.                     -autoLock {lockAndQuitCB autoLockCB}]
  19.  
  20. set rc0 [VtRowColumn $dlog.rc0 -vertical]
  21.  
  22. set rc1 [VtRowColumn $dlog.rc1 -vertical -leftSide $rc0 -alignTop $rc0]
  23.  
  24. set txt [VtText $rc1.text -activateCallback autoLockCB \
  25.               -losingFocusCallback autoLockCB \
  26.                           -valueChangedCallback autoLockCB \
  27.                           -callback autoLockCB -autoLock autoLockCB]
  28. set pb  [VtPushButton $rc1.pb -callback autoLockCB -autoLock autoLockCB]
  29. set scale [VtScale $rc1.scale -callback autoLockCB \
  30.                         -autoLock autoLockCB]
  31. set lst [VtList $rc1.list \
  32.         -itemList {"Initial one" "Initial two" "Initial three"} \
  33.         -rows 2\
  34.         -callback autoLockCB\
  35.         -defaultCallback autoLockCB -autoLock autoLockCB]
  36.  
  37.  
  38.  
  39. VtShow $dlog
  40.  
  41. VtMainLoop
  42.  
  43.